Chip 2003 December/Chip_2003-12_cd1.bin/software/poco/pocosetup.exe/{app}/Poco.exe/0/RCDATA/TFRMSCRIPTS/TFRMSCRIPTS.txt

Text File | 2003-07-29 | 47KB | 1,591 lines

object FrmScripts: TFrmScripts
  Left = 365
  Top = 209
  Width = 471
  Height = 402
  Caption = 'Scripts'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OldCreateOrder = False
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object PC: TElPageControl
    Left = 0
    Top = 32
    Width = 463
    Height = 273
    BorderWidth = 0
    DrawFocus = False
    Flat = False
    HotTrack = False
    Images = ImagesTabs
    Multiline = False
    OnChange = PCChange
    RaggedRight = False
    ScrollOpposite = False
    Style = etsFlatTabs
    TabIndex = 2
    TabPosition = etpTop
    HotTrackFont.Charset = DEFAULT_CHARSET
    HotTrackFont.Color = clBlue
    HotTrackFont.Height = -13
    HotTrackFont.Name = 'MS Sans Serif'
    HotTrackFont.Style = []
    ActivePage = TabButtons
    ActiveTabFont.Charset = DEFAULT_CHARSET
    ActiveTabFont.Color = clWindowText
    ActiveTabFont.Height = -13
    ActiveTabFont.Name = 'MS Sans Serif'
    ActiveTabFont.Style = []
    OnDrawTab = PCDrawTab
    Align = alClient
    ParentColor = False
    TabOrder = 1
    UseXPThemes = False
    DockOrientation = doNoOrient
    object TabSetup: TElTabSheet
      PageControl = PC
      ImageIndex = 1
      Caption = '&Setup Script'
      Visible = False
      object PnlHTML: TElPanel
        Left = 0
        Top = 0
        Width = 459
        Height = 247
        Align = alClient
        BevelOuter = bvNone
        UseXPThemes = False
        TabOrder = 0
        DockOrientation = doNoOrient
        DesignSize = (
          459
          247)
        object gbHTML: TElGroupBox
          Left = 8
          Top = 8
          Width = 443
          Height = 231
          Anchors = [akLeft, akTop, akRight, akBottom]
          AutoDisableChildren = False
          BorderSides = [ebsLeft, ebsRight, ebsTop, ebsBottom]
          Caption = ' Script Settings '
          Flat = False
          FlatAlways = False
          ParentColor = True
          ShowFocus = False
          TabOrder = 0
          UseXPThemes = False
          object HTML: THTMLViewer
            Left = 3
            Top = 19
            Width = 437
            Height = 209
            OnHotSpotClick = HTMLHotSpotClick
            OnFormSubmit = HTMLFormSubmit
            TabOrder = 0
            Align = alClient
            BorderStyle = htNone
            HistoryMaxCount = 0
            DefFontName = 'Times New Roman'
            DefPreFontName = 'Courier New'
            NoSelect = True
            ScrollBars = ssVertical
            CharSet = DEFAULT_CHARSET
            PrintMarginLeft = 2.000000000000000000
            PrintMarginRight = 2.000000000000000000
            PrintMarginTop = 2.000000000000000000
            PrintMarginBottom = 2.000000000000000000
            OnExit = HTMLExit
          end
        end
      end
      object ElPanel1: TElPanel
        Left = 446
        Top = 38
        Width = 493
        Height = 215
        Align = alNone
        TabOrder = 1
        Visible = False
        DockOrientation = doNoOrient
        object SplitterSetup: TSplitter
          Left = 300
          Top = 1
          Width = 4
          Height = 213
          Cursor = crHSplit
          Align = alRight
          ResizeStyle = rsUpdate
          Visible = False
        end
        object PnlButtons: TPanel
          Left = 304
          Top = 1
          Width = 188
          Height = 213
          Align = alRight
          BevelOuter = bvNone
          ParentColor = True
          TabOrder = 0
          Visible = False
          DesignSize = (
            188
            213)
          object UserButton4: TButton
            Left = 8
            Top = 158
            Width = 172
            Height = 35
            Anchors = [akLeft, akTop, akRight]
            TabOrder = 3
            Visible = False
            OnClick = UserButton1Click
          end
          object UserButton3: TButton
            Left = 8
            Top = 108
            Width = 172
            Height = 35
            Anchors = [akLeft, akTop, akRight]
            TabOrder = 2
            Visible = False
            OnClick = UserButton1Click
          end
          object UserButton2: TButton
            Left = 8
            Top = 58
            Width = 172
            Height = 35
            Anchors = [akLeft, akTop, akRight]
            TabOrder = 1
            Visible = False
            OnClick = UserButton1Click
          end
          object UserButton1: TButton
            Left = 8
            Top = 8
            Width = 172
            Height = 35
            Anchors = [akLeft, akTop, akRight]
            TabOrder = 0
            Visible = False
            OnClick = UserButton1Click
          end
        end
      end
    end
    object TabEdit: TElTabSheet
      PageControl = PC
      ImageIndex = 2
      Caption = '&Edit Script'
      Visible = False
      object PnlScriptBody: TPanel
        Left = 0
        Top = 0
        Width = 459
        Height = 212
        Align = alClient
        BevelOuter = bvNone
        ParentColor = True
        TabOrder = 1
        object PageScript: TElPageControl
          Left = 0
          Top = 0
          Width = 459
          Height = 212
          BorderWidth = 0
          DrawFocus = False
          Flat = False
          HotTrack = False
          Multiline = True
          RaggedRight = True
          ScrollOpposite = False
          Style = etsNetTabs
          TabHeight = 60
          TabIndex = 0
          TabPosition = etpRight
          HotTrackFont.Charset = DEFAULT_CHARSET
          HotTrackFont.Color = clBlue
          HotTrackFont.Height = -13
          HotTrackFont.Name = 'MS Sans Serif'
          HotTrackFont.Style = []
          ActivePage = Tab2Script
          ActiveTabFont.Charset = DEFAULT_CHARSET
          ActiveTabFont.Color = clWindowText
          ActiveTabFont.Height = -13
          ActiveTabFont.Name = 'MS Sans Serif'
          ActiveTabFont.Style = []
          Align = alClient
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          TabOrder = 0
          DockOrientation = doNoOrient
          object Tab2Script: TElTabSheet
            PageControl = PageScript
            Caption = 'Edit'
            object PnlWPScript: TElPanel
              Left = 0
              Top = 0
              Width = 430
              Height = 206
              Align = alClient
              BevelOuter = bvNone
              TabOrder = 0
              DockOrientation = doNoOrient
              object WPGutter: TWPGutter
                Left = 0
                Top = 0
                Width = 43
                Height = 206
                PaintImages = [wpgiCursor]
                PaintImagesSecond = []
                PaintImagesThird = []
                ActiveImages = [wpgiHasClosedChildren, wpgiHasOpenChildren, wgpiArrowDown, wgpiArrowLeft, wgpiIndexParagraph, wgpiStdParagraph, wgpiProtected, wgpiNotProtected, wgpiHasStyle, wpgiComment, wpgiBookmark]
                ShowLineNumbers = True
                Align = alLeft
                BevelOuter = bvNone
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -10
                Font.Name = 'Tahoma'
                Font.Style = []
              end
              object WPScript: TWPRichText
                Left = 43
                Top = 0
                Width = 387
                Height = 206
                Cursor = crIBeam
                RTFVariables = <>
                AcceptFiles = False
                EditBoxModes = []
                LayoutMode = wplayNormal
                FormatOptions = [wpfDontBreakTableRows]
                Header.StoreOptions = []
                Header.HTMLStoreOptions = [soAllFontInformation]
                Header.LoadOptions = []
                Header.UsedUnit = UnitIn
                Header.RoundTabs = True
                Header.RoundTabsDivForInch = 90
                Header.RoundTabsDivForCm = 144
                Header.DecimalTabChar = #0
                Header.PrintHeaderFooterInPageMargins = True
                Header.DefaultTabstop = 254
                Header.DefaultPageWidth = 12240
                Header.DefaultPageHeight = 15840
                Header.DefaultTopMargin = 1440
                Header.DefaultBottomMargin = 1440
                Header.DefaultLeftMargin = 1880
                Header.DefaultRightMargin = 1880
                Header.DefaultMarginHeader = 720
                Header.DefaultMarginFooter = 720
                Header.DefaultLandscape = False
                Header.MarginMirror = False
                Header.PageWidth = 999999
                Header.PageHeight = 15840
                Header.LeftMargin = 1880
                Header.RightMargin = 1880
                Header.TopMargin = 1440
                Header.BottomMargin = 1440
                Header.MarginHeader = 720
                Header.MarginFooter = 720
                Header.Landscape = False
                Header.DefaultPageSize = wp_Custom
                Header.PageSize = wp_Custom
                PrintParameter.NumberOfCopies = 1
                PrintParameter.PrintTitle = 'E-mail message'
                PrintParameter.PageMirror = False
                PrintParameter.PageRange = wprAllPages
                PrintParameter.PageSides = wpsAll
                PrintParameter.PrintHeaderFooter = wprNever
                PrintParameter.PrintHeaderFooterOnLastPage = [wprHeader, wprFooter]
                PrintParameter.PrintOptions = []
                WYSIWYG = False
                ReadOnly = False
                WPGutter = WPGutter
                HyperLinkCursor = crDefault
                TextObjectCursor = crArrow
                NoBlockMarking = False
                OneClickHyperlink = False
                ScreenResMode = rmNormal
                TextSaveFormat = 'ANSI'
                TextLoadFormat = 'ANSI'
                AutoZoom = wpAutoZoomOff
                Zooming = 100
                Resizing = 100
                Inserting = True
                HTMLStoreComment = shcFootnote
                HTMLCreateImages = wpciCreateImageEvent
                ViewOptions = [wpGrayTables]
                ClipboardOptions = [wpcoDontPasteRTF, wpcoDontPasteGraphics, wpcoDontCopyRTF]
                EditOptions = [wpTableResizing, wpTableOneCellResizing, wpTableColumnResizing, wpObjectMoving, wpObjectResizingWidth, wpObjectResizingHeight, wpObjectResizingKeepRatio, wpObjectSelecting, wpObjectDeletion, wpFieldObjectsAsGraphicObjects, wpSpreadsheetCursorMovement, wpActivateUndo, wpActivateUndoHotkey, wpActivateRedo, wpActivateRedoHotkey, wpMoveCPOnPageUpDown]
                BackgroundScrolling = True
                Transparent = False
                BackgroundLoadFromFile = True
                BackgroundSaveToFile = True
                HighLightColor = clHighlight
                HighLightTextColor = clHighlightText
                InsertPointAttr.Bold = tsIgnore
                InsertPointAttr.Italic = tsIgnore
                InsertPointAttr.DoubleUnderline = False
                InsertPointAttr.Underline = tsIgnore
                InsertPointAttr.StrikeOut = tsIgnore
                InsertPointAttr.SuperScript = tsIgnore
                InsertPointAttr.SubScript = tsIgnore
                InsertPointAttr.Hidden = False
                InsertPointAttr.UnderlineColor = clBlack
                InsertPointAttr.TextColor = clRed
                InsertPointAttr.BackgroundColor = clBlack
                InsertPointAttr.UseUnderlineColor = False
                InsertPointAttr.UseTextColor = True
                InsertPointAttr.UseBackgroundColor = False
                HiddenTextAttr.Bold = tsIgnore
                HiddenTextAttr.Italic = tsIgnore
                HiddenTextAttr.DoubleUnderline = False
                HiddenTextAttr.Underline = tsIgnore
                HiddenTextAttr.StrikeOut = tsIgnore
                HiddenTextAttr.SuperScript = tsIgnore
                HiddenTextAttr.SubScript = tsIgnore
                HiddenTextAttr.Hidden = True
                HiddenTextAttr.UnderlineColor = clBlack
                HiddenTextAttr.TextColor = clBlack
                HiddenTextAttr.BackgroundColor = clBlack
                HiddenTextAttr.UseUnderlineColor = False
                HiddenTextAttr.UseTextColor = False
                HiddenTextAttr.UseBackgroundColor = False
                FieldObjectTextAttr.Bold = tsIgnore
                FieldObjectTextAttr.Italic = tsIgnore
                FieldObjectTextAttr.DoubleUnderline = False
                FieldObjectTextAttr.Underline = tsIgnore
                FieldObjectTextAttr.StrikeOut = tsIgnore
                FieldObjectTextAttr.SuperScript = tsIgnore
                FieldObjectTextAttr.SubScript = tsIgnore
                FieldObjectTextAttr.Hidden = False
                FieldObjectTextAttr.UnderlineColor = clBlack
                FieldObjectTextAttr.TextColor = clBlack
                FieldObjectTextAttr.BackgroundColor = clBlack
                FieldObjectTextAttr.UseUnderlineColor = False
                FieldObjectTextAttr.UseTextColor = False
                FieldObjectTextAttr.UseBackgroundColor = False
                FieldObjectTextAttr.HotEffect = wpeffPopup
                FieldObjectTextAttr.HotStyleIsActive = True
                FieldObjectTextAttr.HotEffectColor = clBtnFace
                AutomaticTextAttr.Bold = tsIgnore
                AutomaticTextAttr.Italic = tsIgnore
                AutomaticTextAttr.DoubleUnderline = False
                AutomaticTextAttr.Underline = tsIgnore
                AutomaticTextAttr.StrikeOut = tsIgnore
                AutomaticTextAttr.SuperScript = tsIgnore
                AutomaticTextAttr.SubScript = tsIgnore
                AutomaticTextAttr.Hidden = False
                AutomaticTextAttr.UnderlineColor = clBlack
                AutomaticTextAttr.TextColor = clBlack
                AutomaticTextAttr.BackgroundColor = clBlack
                AutomaticTextAttr.UseUnderlineColor = False
                AutomaticTextAttr.UseTextColor = False
                AutomaticTextAttr.UseBackgroundColor = False
                HyperlinkTextAttr.Bold = tsIgnore
                HyperlinkTextAttr.Italic = tsIgnore
                HyperlinkTextAttr.DoubleUnderline = False
                HyperlinkTextAttr.Underline = tsTRUE
                HyperlinkTextAttr.StrikeOut = tsIgnore
                HyperlinkTextAttr.SuperScript = tsIgnore
                HyperlinkTextAttr.SubScript = tsIgnore
                HyperlinkTextAttr.Hidden = False
                HyperlinkTextAttr.UnderlineColor = clBlue
                HyperlinkTextAttr.TextColor = clBlack
                HyperlinkTextAttr.BackgroundColor = clBlack
                HyperlinkTextAttr.UseUnderlineColor = True
                HyperlinkTextAttr.UseTextColor = False
                HyperlinkTextAttr.UseBackgroundColor = False
                ProtectedTextAttr.Bold = tsIgnore
                ProtectedTextAttr.Italic = tsIgnore
                ProtectedTextAttr.DoubleUnderline = False
                ProtectedTextAttr.Underline = tsIgnore
                ProtectedTextAttr.StrikeOut = tsIgnore
                ProtectedTextAttr.SuperScript = tsIgnore
                ProtectedTextAttr.SubScript = tsIgnore
                ProtectedTextAttr.Hidden = False
                ProtectedTextAttr.UnderlineColor = clBlack
                ProtectedTextAttr.TextColor = clBlack
                ProtectedTextAttr.BackgroundColor = clBlack
                ProtectedTextAttr.UseUnderlineColor = False
                ProtectedTextAttr.UseTextColor = False
                ProtectedTextAttr.UseBackgroundColor = False
                ProtectedTextAttr.UseHotBackgroundColor = True
                ProtectedTextAttr.AlsoUseForPrintout = False
                BookmarkTextAttr.Bold = tsIgnore
                BookmarkTextAttr.Italic = tsIgnore
                BookmarkTextAttr.DoubleUnderline = False
                BookmarkTextAttr.Underline = tsTRUE
                BookmarkTextAttr.StrikeOut = tsIgnore
                BookmarkTextAttr.SuperScript = tsIgnore
                BookmarkTextAttr.SubScript = tsIgnore
                BookmarkTextAttr.Hidden = False
                BookmarkTextAttr.UnderlineColor = clGreen
                BookmarkTextAttr.TextColor = clBlack
                BookmarkTextAttr.BackgroundColor = clBlack
                BookmarkTextAttr.UseUnderlineColor = True
                BookmarkTextAttr.UseTextColor = False
                BookmarkTextAttr.UseBackgroundColor = False
                XOffset = 0
                YOffset = 141
                ProtectedProp = [ppProtected, ppHidden]
                WriteBitmapMode = wbmDIBBitmap
                WriteObjectMode = wobDependingOnObject
                DefaultFont.Color = clNone
                DefaultFont.BKColor = clNone
                DefaultFont.Name = 'Courier New'
                DefaultFont.Size = 10
                DefaultFont.Style = []
                DefaultFont.UseBKColor = False
                DBCSMode = []
                Align = alClient
                BorderStyle = bsNone
                ColorDesktop = clBtnShadow
                MaxLength = 0
                ParentColor = False
                PopupMenu = PopupEdit
                ScrollBars = ssVertical
                TabOrder = 1
                TabStop = True
                WantTabs = True
                DragAndDropSupport = True
                OnChange = WPScriptChange
              end
            end
          end
          object Tab2Debug: TElTabSheet
            PageControl = PageScript
            ImageIndex = 2
            Caption = 'Debug'
            Visible = False
            object PnlDebugValues: TPanel
              Left = 0
              Top = 0
              Width = 430
              Height = 206
              Align = alClient
              BevelOuter = bvNone
              ParentColor = True
              TabOrder = 0
              DesignSize = (
                430
                206)
              object Label29: TLabel
                Left = 6
                Top = 3
                Width = 89
                Height = 15
                Caption = 'List of variables:'
              end
              object MemoDebug: TMemo
                Left = 0
                Top = 20
                Width = 423
                Height = 180
                Anchors = [akLeft, akTop, akRight, akBottom]
                ReadOnly = True
                ScrollBars = ssVertical
                TabOrder = 0
                WordWrap = False
              end
            end
          end
        end
      end
      object PnlScriptTop: TPanel
        Left = 0
        Top = 212
        Width = 459
        Height = 35
        Align = alBottom
        BevelOuter = bvNone
        ParentColor = True
        TabOrder = 0
        DesignSize = (
          459
          35)
        object BtnSaveScript: TSpeedButton
          Left = 1
          Top = 5
          Width = 71
          Height = 25
          Caption = 'Save'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          OnClick = BtnSaveScriptClick
        end
        object btnDryRun: TSpeedButton
          Left = 377
          Top = 5
          Width = 79
          Height = 25
          Anchors = [akTop, akRight]
          Caption = 'Debug R&un'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          OnClick = btnDryRunClick
        end
        object BtnDelete: TSpeedButton
          Left = 165
          Top = 5
          Width = 87
          Height = 25
          Caption = 'Delete Script'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          OnClick = BtnDeleteClick
        end
        object BtnNew: TSpeedButton
          Left = 75
          Top = 5
          Width = 87
          Height = 25
          Caption = 'New Script'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          OnClick = BtnNewClick
        end
      end
    end
    object TabButtons: TElTabSheet
      PageControl = PC
      ImageIndex = 3
      Caption = '&Buttons'
      object Splitter5: TSplitter
        Left = 212
        Top = 0
        Width = 4
        Height = 247
        Cursor = crHSplit
        ResizeStyle = rsUpdate
      end
      object PnlButtonsScripts: TPanel
        Left = 0
        Top = 0
        Width = 212
        Height = 247
        Align = alLeft
        BevelOuter = bvNone
        ParentColor = True
        TabOrder = 0
        DesignSize = (
          212
          247)
        object Label12: TLabel
          Left = 2
          Top = 9
          Width = 49
          Height = 16
          Caption = 'Button &1'
          FocusControl = cbBtn1
        end
        object Label3: TLabel
          Left = 2
          Top = 32
          Width = 49
          Height = 16
          Caption = 'Button &2'
          FocusControl = cbBtn2
        end
        object Label4: TLabel
          Left = 2
          Top = 56
          Width = 49
          Height = 16
          Caption = 'Button &3'
          FocusControl = cbBtn3
        end
        object Label5: TLabel
          Left = 2
          Top = 80
          Width = 49
          Height = 16
          Caption = 'Button &4'
          FocusControl = cbBtn4
        end
        object Label6: TLabel
          Left = 2
          Top = 104
          Width = 49
          Height = 16
          Caption = 'Button &5'
          FocusControl = cbBtn5
        end
        object Label7: TLabel
          Left = 2
          Top = 128
          Width = 49
          Height = 16
          Caption = 'Button &6'
          FocusControl = cbBtn6
        end
        object Label8: TLabel
          Left = 2
          Top = 152
          Width = 49
          Height = 16
          Caption = 'Button &7'
          FocusControl = cbBtn7
        end
        object Label9: TLabel
          Left = 2
          Top = 176
          Width = 49
          Height = 16
          Caption = 'Button &8'
          FocusControl = cbBtn8
        end
        object Label10: TLabel
          Left = 2
          Top = 200
          Width = 49
          Height = 16
          Caption = 'Button &9'
          FocusControl = cbBtn9
        end
        object Label11: TLabel
          Left = 2
          Top = 224
          Width = 49
          Height = 16
          Caption = 'Button &0'
          FocusControl = cbBtn0
        end
        object Bevel4: TBevel
          Left = 207
          Top = 0
          Width = 5
          Height = 247
          Align = alRight
          Shape = bsRightLine
          Visible = False
        end
        object cbBtn1: TComboBox
          Left = 72
          Top = 4
          Width = 138
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 15
          ParentFont = False
          TabOrder = 0
          OnClick = cbBtn1Click
          OnDropDown = cbBtn1DropDown
        end
        object cbBtn2: TComboBox
          Left = 72
          Top = 28
          Width = 138
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 15
          ParentFont = False
          TabOrder = 1
          OnClick = cbBtn1Click
          OnDropDown = cbBtn1DropDown
        end
        object cbBtn3: TComboBox
          Left = 72
          Top = 52
          Width = 138
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 15
          ParentFont = False
          TabOrder = 2
          OnClick = cbBtn1Click
          OnDropDown = cbBtn1DropDown
        end
        object cbBtn4: TComboBox
          Left = 72
          Top = 76
          Width = 138
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 15
          ParentFont = False
          TabOrder = 3
          OnClick = cbBtn1Click
          OnDropDown = cbBtn1DropDown
        end
        object cbBtn5: TComboBox
          Left = 72
          Top = 100
          Width = 138
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 15
          ParentFont = False
          TabOrder = 4
          OnClick = cbBtn1Click
          OnDropDown = cbBtn1DropDown
        end
        object cbBtn6: TComboBox
          Left = 72
          Top = 124
          Width = 138
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 15
          ParentFont = False
          TabOrder = 5
          OnClick = cbBtn1Click
          OnDropDown = cbBtn1DropDown
        end
        object cbBtn7: TComboBox
          Left = 72
          Top = 148
          Width = 138
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 15
          ParentFont = False
          TabOrder = 6
          OnClick = cbBtn1Click
          OnDropDown = cbBtn1DropDown
        end
        object cbBtn8: TComboBox
          Left = 72
          Top = 172
          Width = 138
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 15
          ParentFont = False
          TabOrder = 7
          OnClick = cbBtn1Click
          OnDropDown = cbBtn1DropDown
        end
        object cbBtn9: TComboBox
          Left = 72
          Top = 196
          Width = 138
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 15
          ParentFont = False
          TabOrder = 8
          OnClick = cbBtn1Click
          OnDropDown = cbBtn1DropDown
        end
        object cbBtn0: TComboBox
          Left = 72
          Top = 220
          Width = 138
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ItemHeight = 15
          ParentFont = False
          TabOrder = 9
          OnClick = cbBtn1Click
          OnDropDown = cbBtn1DropDown
        end
      end
      object PnlButtonsDesc: TPanel
        Left = 216
        Top = 0
        Width = 243
        Height = 247
        Align = alClient
        BevelOuter = bvNone
        ParentColor = True
        TabOrder = 1
        DesignSize = (
          243
          247)
        object Label13: TLabel
          Left = 8
          Top = 9
          Width = 65
          Height = 16
          Caption = 'Description'
          FocusControl = EditBtn1
        end
        object Label14: TLabel
          Left = 8
          Top = 32
          Width = 65
          Height = 16
          Caption = 'Description'
          FocusControl = EditBtn2
        end
        object Label15: TLabel
          Left = 8
          Top = 56
          Width = 65
          Height = 16
          Caption = 'Description'
          FocusControl = EditBtn3
        end
        object Label16: TLabel
          Left = 8
          Top = 80
          Width = 65
          Height = 16
          Caption = 'Description'
          FocusControl = EditBtn4
        end
        object Label17: TLabel
          Left = 8
          Top = 104
          Width = 65
          Height = 16
          Caption = 'Description'
          FocusControl = EditBtn5
        end
        object Label18: TLabel
          Left = 8
          Top = 128
          Width = 65
          Height = 16
          Caption = 'Description'
          FocusControl = EditBtn6
        end
        object Label19: TLabel
          Left = 8
          Top = 152
          Width = 65
          Height = 16
          Caption = 'Description'
          FocusControl = EditBtn7
        end
        object Label20: TLabel
          Left = 8
          Top = 176
          Width = 65
          Height = 16
          Caption = 'Description'
          FocusControl = EditBtn8
        end
        object Label21: TLabel
          Left = 8
          Top = 200
          Width = 65
          Height = 16
          Caption = 'Description'
          FocusControl = EditBtn9
        end
        object Label22: TLabel
          Left = 8
          Top = 224
          Width = 65
          Height = 16
          Caption = 'Description'
          FocusControl = EditBtn0
        end
        object Bevel5: TBevel
          Left = 0
          Top = 0
          Width = 5
          Height = 247
          Align = alLeft
          Shape = bsLeftLine
          Visible = False
        end
        object EditBtn0: TEdit
          Left = 90
          Top = 220
          Width = 149
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 9
        end
        object EditBtn9: TEdit
          Left = 90
          Top = 196
          Width = 149
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 8
        end
        object EditBtn8: TEdit
          Left = 90
          Top = 172
          Width = 149
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 7
        end
        object EditBtn7: TEdit
          Left = 90
          Top = 148
          Width = 149
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 6
        end
        object EditBtn6: TEdit
          Left = 90
          Top = 124
          Width = 149
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
        end
        object EditBtn5: TEdit
          Left = 90
          Top = 100
          Width = 149
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
        end
        object EditBtn4: TEdit
          Left = 90
          Top = 76
          Width = 149
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
        end
        object EditBtn3: TEdit
          Left = 90
          Top = 52
          Width = 149
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object EditBtn2: TEdit
          Left = 90
          Top = 28
          Width = 149
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object EditBtn1: TEdit
          Left = 90
          Top = 4
          Width = 149
          Height = 23
          Anchors = [akLeft, akTop, akRight]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
      end
    end
  end
  object PnlBottom: TPanel
    Left = 0
    Top = 305
    Width = 463
    Height = 57
    Align = alBottom
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 2
    object LblPass: TLabel
      Left = 12
      Top = 21
      Width = 245
      Height = 18
      Caption = 'You entered an incorrect password!'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = 18
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object PnlProgress: TPanel
      Left = 0
      Top = 0
      Width = 345
      Height = 57
      Align = alLeft
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 0
      Visible = False
      object ProgressScript: TElBiProgressBar
        Left = 151
        Top = 2
        Width = 193
        Height = 20
        DarkColor = clBtnShadow
        LightValue = 0
        DarkValue = 0
        Additive = False
        LightTextFullLine = False
        DarkTextFullLine = True
        DarkTextColor = clBlack
        LightTextColor = clBlack
        BorderStyle = ebsLowered
        LightButtonStyle = False
        DarkButtonStyle = False
        Transparent = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        DockOrientation = doNoOrient
      end
      object Label25: TLabel
        Left = 154
        Top = 4
        Width = 67
        Height = 16
        Caption = 'Total Lines:'
        Transparent = True
      end
      object Label26: TLabel
        Left = 258
        Top = 4
        Width = 56
        Height = 16
        Caption = 'Currently:'
        Transparent = True
      end
      object Label27: TLabel
        Left = 2
        Top = 4
        Width = 51
        Height = 16
        Caption = 'Running:'
      end
      object lblScriptRunning: TLabel
        Left = 60
        Top = 4
        Width = 91
        Height = 16
        AutoSize = False
        Caption = 'script'
        Transparent = True
      end
      object LblTotalLines: TLabel
        Left = 226
        Top = 4
        Width = 27
        Height = 16
        AutoSize = False
        Caption = '0000'
        Transparent = True
      end
      object LblCurrentLine: TLabel
        Left = 315
        Top = 4
        Width = 28
        Height = 16
        Caption = '0000'
        Transparent = True
      end
      object Label1: TLabel
        Left = 2
        Top = 30
        Width = 28
        Height = 16
        Caption = 'Line:'
      end
      object LblCurrent: TLabel
        Left = 36
        Top = 30
        Width = 238
        Height = 16
        AutoSize = False
        Transparent = True
      end
      object BtnCancel: TButton
        Left = 276
        Top = 27
        Width = 69
        Height = 25
        Caption = 'Cancel'
        TabOrder = 0
        OnClick = BtnCancelClick
      end
    end
    object PnlClose: TPanel
      Left = 358
      Top = 0
      Width = 105
      Height = 57
      Align = alRight
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 1
      object BtnClose: TButton
        Left = 3
        Top = 8
        Width = 94
        Height = 39
        Cancel = True
        Caption = 'C&lose'
        Default = True
        ModalResult = 1
        TabOrder = 0
        OnClick = BtnCloseClick
      end
    end
  end
  object PnlTop: TPanel
    Left = 0
    Top = 0
    Width = 463
    Height = 32
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    DesignSize = (
      463
      32)
    object BtnOrganize2: TSpeedButton
      Left = 4
      Top = 4
      Width = 85
      Height = 22
      Cursor = crHandPoint
      Caption = 'Script name:'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      OnClick = BtnOrganize1Click
    end
    object cbScriptName: TComboBox
      Left = 92
      Top = 3
      Width = 160
      Height = 24
      Style = csDropDownList
      Anchors = [akLeft, akTop, akRight]
      DropDownCount = 16
      ItemHeight = 16
      Sorted = True
      TabOrder = 0
      OnChange = cbScriptNameChange
    end
    object BtnRunNow: TButton
      Left = 255
      Top = 2
      Width = 206
      Height = 25
      Anchors = [akTop, akRight]
      Caption = '&Run on Selected Messages'
      TabOrder = 1
      OnClick = BtnRunNowClick
    end
  end
  object MailMessage: TmsMessage
    ContentType = 'text/plain'
    Version = '2.02'
    ReturnReceipt = False
    Left = 286
    Top = 165
  end
  object ImagesTabs: TImageList
    Left = 250
    Top = 165
  end
  object PopupEdit: TPopupMenu
    Left = 214
    Top = 165
    object MenuUndo: TMenuItem
      Caption = '&Undo'
      OnClick = MenuUndoClick
    end
    object MenuItem2: TMenuItem
      Caption = '-'
    end
    object MenuCut: TMenuItem
      Caption = 'Cu&t'
      OnClick = MenuCutClick
    end
    object MenuCopy: TMenuItem
      Caption = '&Copy'
      OnClick = MenuCopyClick
    end
    object MenuPaste: TMenuItem
      Caption = '&Paste'
      OnClick = MenuPasteClick
    end
    object MenuDelete: TMenuItem
      Caption = '&Delete'
      OnClick = MenuDeleteClick
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object MenuSelectAll: TMenuItem
      Caption = 'Select &All'
      OnClick = MenuSelectAllClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Save1: TMenuItem
      Caption = '&Save'
      ShortCut = 16467
      OnClick = Save1Click
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 112
      OnClick = Help1Click
    end
  end
  object StringsScripts: TIStrings
    Duplicates = dupIgnore
    Left = 326
    Top = 165
    SStr = (
      '{### About PocoScript'
      '{ Short script showing the About box for PocoScript }'
      ''
      'Set $a "You are now watching PocoScript in action!"'
      'AppendBody $a " "'
      'AppendBody $a " "'
      'AppendBody $a "What is PocoScript?"'

        'AppendBody $a "  PocoScript is an interpreted scripting language' +
        ' built right into PocoMail."'

        'AppendBody $a "  It will let you manipulate your e-mail in ways ' +
        'you never thought possible."'
      'AppendBody $a " "'

        'AppendBody $a "But I don'#39't want to or know how to write scripts!' +
        '"'

        'AppendBody $a "  PocoMail comes with several useful scripts pre-' +
        'installed so you can start taking"'

        'AppendBody $a "  advantage of it immediately. You can also downl' +
        'oad additional third-party scripts."'
      'AppendBody $a " "'
      'AppendBody $a "How do I get started?"'

        'AppendBody $a "  Simply press F9 to open the scripting window, f' +
        'rom where you can run,"'

        'AppendBody $a "  edit or delete the installed scripts, as well a' +
        's customize the script toolbar."'
      'AppendBody $a " "'
      'AppendBody $a "Enjoy!"'
      'Beep'
      'MessageBox $a'
      ''
      ''
      '{### Archive Old Mail'
      '{ Script will archive any selected messages older '
      '{ than a specified number of days to a specified folder'
      ''
      '{ Usage: best used on Selected messages'
      '{ To try it out, select some messages, setup this script'
      '{ in Scripts/Setup, then run it in Scripts/Settings by'
      '{ selecting it along the bottom and clicking on Now button'
      ''
      '    { Initialize user settings: }'
      'External $userdata1 "Archive messages older than: (days)" "30"'

        'External $userdata2 "Which mailbox should I archive them to:%mai' +
        'lboxes%" "Archives"'
      ''
      '    { Make sure message is appended to mailbox }'
      'AppendToFile True'
      '    { Get today'#39's date }'
      'GetDate $todaydate'
      '    { Get message'#39's date }'
      'ReadHeader $messagedate "Date:" %message'
      '    { Calculate the message age }'
      'SubDays #diff $todaydate $messagedate'
      ''
      '    { Compare the age to user setting }'
      'if #diff > $userdata1 then PerformCopy'
      '    { Exit if the difference is not greater }'
      'Exit'
      ''
      '    { If true, jump here and archive the message }'
      ':PerformCopy'
      '    { Load the mailbox filepath information }'
      'AddStrings $UserData2 ".mbx"'
      'SaveMessage %message $UserData2'
      '    { Finally, deleting the original message }'
      'DeleteMessage %message'
      ''
      ''
      '{### Calculator'
      '{ Script will launch Calculator'
      '{ A sample of different PocoScript capabilities'
      ''
      'Execute calc.exe'
      ''
      ''
      '{### Create Mailbox'
      '{ This sample script will simply create a new mailbox'
      ''

        'InputBox $a "I am about to create a new mailbox, what would you ' +
        'like to name it?" "Brand New Mailbox"'
      'Set $b " "'
      'AddStrings $a .mbx'
      'SaveBody $b $a'
      'RefreshMailboxes'
      ''
      ''
      ''
      '{### Display Raw Message'
      '{ Script will show the raw message in Notepad'
      ''
      'SaveMessage %message ~msg.tmp'
      'Execute notepad.exe ~msg.tmp'
      '    { Wait 3 seconds for Notepad to load... }'
      'Wait 3'
      '    { ...then delete the temporary file }'
      'DeleteFile ~msg.tmp'
      ''
      ''
      ''
      '{### Vacation Message'
      '{ A bit more sophisticated, this script will reply to an'
      '{ incoming mail, with a pre-saved template. For this'
      '{ script to run unattended, make sure that in the program'
      '{ settings (F7) under Miscellaneous, Send Queued Messages'
      '{ When Checking Mail is checked.'
      ''
      '{ Usage: best used on Incoming messages'
      ''
      '    { Initialize user settings: }'
      'External $userfile1 "Create message template" "vacation.txt"'
      ''
      'AppendToFile True'
      'ReadHeader $Email "From:" %message'
      'ReadHeader $Subject "Subject:" %message'
      'CreateMessage %Out'
      'ReadEmail $From'
      'SetHeader %Out "From:" $From'
      'Set $Name $Email'
      'ExtractEmail $Email'
      'SetHeader %Out "To:" $Email'
      'Set $NewSubject "Re: "'
      'AddStrings $NewSubject $Subject'
      'SetHeader %Out "Subject:" $NewSubject'
      ''
      'OpenBody $NewBody $UserFile1'
      'ReadBody $OldBody %message'
      'QuoteBody $OldBody'
      'AppendBody $NewBody " "'
      'AppendBody $NewBody $OldBody'
      'AssignBody %Out $NewBody'
      ''
      'SaveMessage %Out "e:\temp3.txt"'
      'SaveMessage %Out "Out.mbx"'
      ''
      ' '
      ''
      '{### Group from clipboard csv'
      '{  Create an address book group from a list of addresses '
      '{  in a CSV format in clipboard'
      ''

        '{ Usage: Open the file with CSV-formatted group, copy to clipboa' +
        'rd'

        '{    then run this script to create a group. If the group alread' +
        'y exists'
      '{    this script will add the addresses to it.'
      ''

        'External $userdata1 "Enter the name of the Group to be created:"' +
        ' "Clipboard Group"'

        'External $userdata2 "Enter the name of the Address Book to be us' +
        'ed:%addressbooks%" "Address"'
      ''
      'Set $groupname $userdata1'
      'Set $bookname $userdata2'
      ''
      'PasteFromClipboard $rawlist'
      'ReadCSV $list $rawlist'
      'LineCount #total $list'
      'If #total < 1 then Leave'
      ''
      'CreateGroup $groupname $bookname'
      'Set #i 0'
      ''
      ':Loop'
      'GetLine $single #i $list'
      'AddToGroup $groupname $single $bookname'
      'Inc #i'
      'if #i < #total then Loop'
      ''
      ':Leave'
      'Exit'
      ''
      ''
      ''
      '{### View In Browser'

        '{  Load raw message into user'#39's browser so it can be printed wit' +
        'h formatting intact.'

        '{  Author: Michael Motek,  October 14, 2000, edits by SR 2002/08' +
        '/17'
      '{  This script should be run on selected items only.'
      ''
      'ReadRawBody $body %message'
      'AppendToFile False'
      'Set $filename $temppath'
      'AddStrings $filename "~poco_viewinbrowser.html"'
      'SaveBody $body $filename'
      'Execute $filename'
      ''
      ''
      '{ Done }')
  end
  object TimerWait: TTimer
    Enabled = False
    OnTimer = TimerWaitTimer
    Left = 178
    Top = 164
  end
end